The Business Master (4th Edition)/The Business Master - 4th Edition.iso/files/grap_cad/dancd23/demo3.mac

Text File | 1990-10-04 | 19.9 KB | 692 lines

; DEMO3.MAC, Macro demo for DANCAD3D v2.5x release version

; Copyright (c) 1990, Daniel H. Hudgins, All rights reserved.
; Other macro files come with the registered user outfit.
; Write to: DANCAD3D, 466 Diamond St., San Francisco, CA 94114, USA.

; Begin set up

INIT               ; clear DANCAD3D's workspace
WORLD 240          ; set world scale to inches

; End Set up

TEXT_MODE
ECHO ┌─────────────────────────────────────────────────────────────────────────────┐
ECHO │         DEMO3.MAC DEMONSTRATION MACRO FOR DANCAD3D v2.5x OR LATER.          │
ECHO └─────────────────────────────────────────────────────────────────────────────┘

LOCATE 1 5
ECHO     This DEMO macro shows you some of the types of shapes  that  can  be  drawn
ECHO with  DANCAD3D.  Almost  any  type  of mechanical drawing that can be done with
ECHO DANCAD3D.  Additionally DANCAD3D can be used to draw tool paths for DANCAM  and
ECHO DANPLOT   to  manufacture  or  automate.   DANCAD3D's  workspace  is  virtually
ECHO boundless and points can be positioned in the workspace to tremendous  accuracy
ECHO (much  better  than  one  millionth  of  an  inch.)  You can make very accurate
ECHO drawings with DANCAD3D.  You can freely mix 2D and  3D  drawing  components  in
ECHO DANCAD3D  drawings.  To  draw with DANCAD3D you just move the drawing cursor to
ECHO any point in the workspace, press the [Right] mouse button,  move the cursor to
ECHO the  end point for the line segment you want to draw and press the [Left] mouse
ECHO button!

LOCATE 1 17
ECHO     This demo has several parts.  You should read the  messages  that  come  on
ECHO then  screen  and  press  the  [Return]  key  when you are finished reading the
ECHO messages.

INITIALIZE_WORKSPACE
BEGIN_CUBE { Element 1 }
APPEND_LINE -0.5 -0.5 -0.5 0.5 -0.5 -0.5 1 1 0 0
APPEND_LINE 0.5 -0.5 -0.5 0.5 0.5 -0.5 1 1 0 0
APPEND_LINE 0.5 0.5 -0.5 -0.5 0.5 -0.5 1 1 0 0
APPEND_LINE -0.5 0.5 -0.5 -0.5 -0.5 -0.5 1 1 0 0
APPEND_LINE -0.5 -0.5 0.5 0.5 -0.5 0.5 1 1 0 0
APPEND_LINE 0.5 -0.5 0.5 0.5 0.5 0.5 1 1 0 0
APPEND_LINE 0.5 0.5 0.5 -0.5 0.5 0.5 1 1 0 0
APPEND_LINE -0.5 0.5 0.5 -0.5 -0.5 0.5 1 1 0 0
APPEND_LINE -0.5 -0.5 -0.5 -0.5 -0.5 0.5 1 1 0 0
APPEND_LINE -0.5 0.5 -0.5 -0.5 0.5 0.5 1 1 0 0
APPEND_LINE 0.5 -0.5 -0.5 0.5 -0.5 0.5 1 1 0 0
APPEND_LINE 0.5 0.5 -0.5 0.5 0.5 0.5 1 1 0 0
{ End CUBE }
# 1 CENTER_FOR_CUBE 0.5 0.5 0.5

LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

GRAPH_MODE B&W
LOCATE 1 1
ECHO     DANCAD3D  can  display the line segments in the workspace several different
ECHO ways on the screen.  Flat on like here.

# 0 DISPLAY 0 0 0 -1.000E+18 480 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT


GRAPH_MODE B&W
LOCATE 1 1
ECHO     With Rotation to show all the sides.

# 0 DISPLAY -20 -20 0 -1.000E+18 480 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT



GRAPH_MODE B&W
LOCATE 1 1

ECHO     Or with exaggerated perspective to show depth better.  You can even ANIMATE
ECHO the display with the Main Menu [P]review command to get an even better feel for
ECHO the  shape of the objects in the workspace.  When you press [Return] the screen
ECHO will redraw ten times then animate continuously.  To  continue  the  DEMO3  you
ECHO will need to press [Return] then [Q] (for Quit) to quit the ANIMATE command.

# 0 DISPLAY -20 -20 0 -2 480 1 0 0
LOCATE 5 25 ECHO Press [Return] to continue. %%
WAIT

GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 1
# 0 DISPLAY -20 -20 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.1

GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 2
# 0 DISPLAY -20 -11 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.2

GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 3
# 0 DISPLAY -20 -2 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.3

GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 4
# 0 DISPLAY -20 7 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.4

GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 5
# 0 DISPLAY -20 16 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.5

GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 6
# 0 DISPLAY -20 25 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.6

GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 7
# 0 DISPLAY -20 34 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.7

GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 8
# 0 DISPLAY -20 43 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.8

GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 9
# 0 DISPLAY -20 52 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.9

GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 10
# 0 DISPLAY -20 61 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.10

GRAPH_MODE B&W
ANIMATE PIX\DEMO3 40


INITIALIZE ; polygon curve part

GRAPH_MODE B&W
LOCATE 1 1

ECHO     Since all drawing elements in DANCAD3D are  made  from  line  segments  the
ECHO polygon  command  is  used  to  approximate  circles  and similar round shapes.
ECHO Having DANCAD3D only manipulate the end points of line segments allows DANCAD3D
ECHO to deal with complex three dimensional forms and makes the program flexible and
ECHO adaptable to any line drawing purpose.

POLYGON 6 6 2 1 1 0 0
# 0 DISPLAY 0 0 0 1E18 240 1 0 0.6
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT


GRAPH_MODE B&W
LOCATE 1 1

ECHO     By using a lager number of sides polygons  can  look  like  circles.  As  a
ECHO practical mater this is standard practice in computer graphics,  and works well
ECHO if you use more sides for larger circles.  DANCAD3D  lets  you  decide  on  the
ECHO resolution you want the circles to have.

POLYGON 72 72 2 1 1 0 0 { This is element 2 }
# 0 DISPLAY 0 0 0 1E18 240 1 0 0.5
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

GRAPH_MODE B&W
LOCATE 1 1

ECHO     The MAGNIFY command can be used to squash or stretch "circles".

# 2 MAGNIFY C 1 0.5 1
# 2 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT


GRAPH_MODE B&W
LOCATE 1 1

ECHO     The  ROTATE  command can be used to rotate a squashed or stretched "circle"
ECHO to any angle you may need.

# 2 CENTER_ON_POINT 0 0 0
# 2 ROTATE C 0 0 45

# 2 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT


GRAPH_MODE B&W
LOCATE 1 1

ECHO     The WINDOW command can chop part of any element off so you can use part  of
ECHO an element is some special way.

# 2 WINDOW_ELEMENT 5000 0 -2 0 2 2.5 0
# 3 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT


GRAPH_MODE B&W
LOCATE 1 1

ECHO     The  COPY  and  FLIP  element commands are used here to mirror the windowed
ECHO part of the magnified and rotated element.

# 3 COPY_ELEMENT_IN_WORKSPACE
# 4 FLIP C X
JOIN_TWO_ELEMENTS 3 4
# 3 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

GRAPH_MODE B&W
LOCATE 1 1

ECHO     The two halves of the heart can be made into one element and then  windowed
ECHO again to make a new shape.

# 3 WINDOW_ELEMENT 5000 -2.2 0 0 1.9 -1.9 0
# 4 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

GRAPH_MODE B&W
LOCATE 1 1

ECHO     And you can COPY and FLIP (this time the Y axis in place of the X axis) the
ECHO windowed element to make still another shape.

# 4 COPY_ELEMENT_IN_WORKSPACE
# 5 OFFSET CURRENT 0 0 0
# 5 FLIP C Y
JOIN_TWO_ELEMENTS 4 5
# 4 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

GRAPH B&W
LOCATE 1 1

ECHO     You can COPY, ROTATE, and JOIN the new shape to make a compound form.

# 4 ROTATE C 0 0 45
# 4 COPY_ELEMENT_IN_WORKSPACE
# 5 OFFSET CURRENT 0 0 0
# 5 ROTATE C 0 0 45
JOIN_TWO_ELEMENTS 4 5
# 4 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT


GRAPH B&W LOCATE 1 1

ECHO     You can continue to copy,  rotate and join elements to approximate any form
ECHO of line segments you can imagine.

# 4 COPY_ELEMENT_IN_WORKSPACE
# 5 OFFSET CURRENT 0 0 0
# 5 ROTATE C 0 0 22.5
JOIN_TWO_ELEMENTS 4 5
# 4 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

; Fit curve part


INITIALIZE

GRAPH_MODE B&W
LOCATE 1 1

ECHO     DANCAD3D's  FIT_CURVE  command can make a smooth curve from a roughly drawn
ECHO curve.  Here you see the roughly drawn curve.

BEGIN
APPEND -2.1 0 0 -1.4 -1.2 0 1 1 0 0
APPEND -1.4 -1.2 0 -0.1 -1.2 0 1 1 0 0
APPEND -0.1 -1.2 0 0.5 0 0 1 1 0 0
APPEND 0.5 0 0 0.5 1.2 0 1 1 0 0
APPEND 0.5 1.2 0 1.5 1.5 0 1 1 0 0
APPEND 1.5 1.5 0 1.8 0.4 0 1 1 0 0
APPEND 1.8 0.4 0 1.2 -0.8 0 1 1 0 0
APPEND 1.2 -0.8 0 -0.2 -0.8 0 1 1 0 0
APPEND -0.2 -0.8 0 -0.7 0.2 0 1 1 0 0
APPEND -0.7 0.2 0 0.9 0.5 0 1 1 0 0
APPEND 0.9 0.5 0 1.9 -0.4 0 1 1 0 0
APPEND 1.9 -0.4 0 1.9 -1.5 0 1 1 0 0
# 0 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

GRAPH_MODE B&W
LOCATE 1 1

ECHO     Next you see that the new element of the  smooth  curve  makes  the  smooth
ECHO curve pass through all of the end points of the roughly drawn curve.

# 1 CURVE_FIT 4 0.2
# 0 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

GRAPH_MODE
B&W LOCATE 1 1

ECHO     If the smooth curve element looks correct you can erase the  roughly  drawn
ECHO curve element from the workspace, so that the smooth curve is un-obscured.


# 1 ERASE_ELEMENT
# 0 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT


INITIALIZE_WORKSPACE
GRAPH_MODE B&W
LOCATE 1 1
ECHO     Aside  from drawing curves, the FIT_CURVE command has practical uses in the
ECHO production of ribs for ship hulls and air or space craft parts.
BEGIN
APPEND 1.8 -1.3 0 1.5 -0.2 0 1 1 0 0
APPEND 1.5 -0.2 0 0.8 0.7 0 1 1 0 0
APPEND 0.8 0.7 0 0 0.9 0 1 1 0 0
APPEND 0 0.9 0 -0.8 0.7 0 1 1 0 0
APPEND -0.8 0.7 0 -1.5 -0.2 0 1 1 0 0
APPEND -1.5 -0.2 0 -1.8 -1.3 0 1 1 0 0
# 0 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

GRAPH_MODE B&W
LOCATE 1 1
ECHO     Because DANCAD3D's method of fitting curves assures  that  the  curve  will
ECHO pass through  the points of the rough curve you can easily draw the rough curve
ECHO from the drawing editor by using the [G]oto point command.
# 1 CURVE_FIT 5 0.2
# 0 DISPLAY 0 0 0 1E18 240 1 0 0.25
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

GRAPH_MODE B&W
LOCATE 1 1
ECHO     After the quality of the curve is accepted you  can  use  DANPLOT  to  make
ECHO actual size drawings for the curves,  or use DANPLOT and DANCAM to actually cut
ECHO out and machine  the  part!  Advanced  commands  are  available  in  the  macro
ECHO language  to  interpolate  extra  ribs  BETWEEN  the major ones.  The fit curve
ECHO command will work in 3D to allow for the design of surface contours.
# 1 ERASE
# 0 DISPLAY 0 0 0 1E18 240 1 0 0.5
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

; Thicken part

GRAPH_MODE B&W
LOCATE 1 1

ECHO     The THICKEN command  can  thicken  an  outline  of  a  shape  to  give  the
ECHO appearance  of  thickness  to  elements viewed in perspective.  Here you see an
ECHO outline flat on, like in the drawing editor front view.

INITIALIZE
POLYGON 36 36 0.75 1 1 0 0
# 1 OFFSET ZERO 0 -1 0
POLYGON 60 30 1 1 1 0 0
# 2 ROTATE ZERO 0 0 -90
# 2 OFFSET ZERO 0 -1 0
# 2 CENTER 0 -1 0
# 2 ROTATE CURRENT 0 0 -90
APPEND -1 -1 0 -1 1 0 1 1 0 0
APPEND -1 1 0 1 1 0 1 1 0 0
APPEND 1 1 0 1 -1 0 1 1 0 0
POLYGON 12 12 0.125 1 1 0 0
# 3 OFFSET ZERO 0.7 0.7 0
# 3 COPY
# 4 OFFSET CURRENT -1.4 0 0
JOIN 3 4
JOIN 2 3
JOIN 1 2
# 0 DISPLAY 0 0 0 1E18 240 1 0 0.5
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

GRAPH B&W
LOCATE 1 1

ECHO     Here is the same outline shown in perspective.

# 0 DISPLAY 30 -20 45 -2.5 350 1 0 -0.3
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT


GRAPH B&W
LOCATE 1 1

ECHO     And now the outline has been thickened.  This is a perspective view to show
ECHO how the polygons have been made into holes and rounded  surfaces.  The  thicken
ECHO command  takes a moment to work but is not used frequently,  so the time is not
ECHO important.

# 1 THICKEN Z -0.375
# 0 DISPLAY 30 -20 45 -2.5 350 1 0 -0.3
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

; Lathe part

GRAPH B&W
LOCATE 1 1

ECHO     The LATHE command simplifies the drawing of round shapes by using  a  right
ECHO hand  profile  of  the  round  shape  you  want  to  make as a template for the
ECHO "turning" of the form.  Here you see a right hand profile.

INITIALIZE
POLYGON 36 9 1 1 1 0 0
# 1 OFFSET ZERO 0 -1 0
# 1 CENTER 0 -1 0
# 1 ROTATE CURRENT 0 0 90
APPEND 1 -1 0 0.9 -0.8 0 1 1 0 0
APPEND 0.9 -0.8 0 0.9 1 0 1 1 0 0
# 0 DISPLAY 0 0 0 1E18 240 1 0 0.5
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT


GRAPH B&W
LOCATE 1 1

ECHO     Here you see the result of the LATHE command  on  the  right  hand  profile
ECHO element  you  say  in the last screen.  The lathe command will take a moment to
ECHO work but is is not used  frequently  so  that  is  not  important.  This  shape
ECHO resembles  a  rivet  before being used.  Macro commands are available to modify
ECHO the profile,  before the  element  is  lathed,  to  vary  the  contours  during
ECHO animation.

# 1 LATHE 12 12
# 0 DISPLAY 0 0 90 -20 350 1 0.5 0.25
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

GRAPH B&W
LOCATE 1 1

ECHO     You can use the LATHE command to turn parts that make up part of a complete
ECHO rotation around the lathe axis.  In a moment you see a one  quarter  turn  made
ECHO from the same profile used in the last example.

INITIALIZE
POLYGON 36 9 1 1 1 0 0
# 1 OFFSET ZERO 0 -1 0
# 1 CENTER 0 -1 0
# 1 ROTATE CURRENT 0 0 90
APPEND 1 -1 0 0.9 -0.8 0 1 1 0 0
APPEND 0.9 -0.8 0 0.9 1 0 1 1 0 0
# 1 LATHE 24 6
# 0 DISPLAY -20 -20 90 -2.5 350 1 0.5 0.5
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT


INIT GRAPH B&W LOCATE 1 1

ECHO     Here is another example of how the lathe  command  can  be  used.  To  make
ECHO outlines of shapes that have openings at the center you would draw all the line
ECHO segments in the element to lathe right of center.


BEGIN
APPEND 2 0 0 1 0 0 1 1 0 0
APPEND 1 0 0 1 -0.4 0 1 1 0 0
APPEND 1 -0.4 0 1.3 -0.4 0 1 1 0 0
APPEND 1.3 -0.4 0 1.3 -0.2 0 1 1 0 0
APPEND 1.3 -0.2 0 2 -0.2 0 1 1 0 0
APPEND 2 -0.2 0 2 0 0 1 1 0 0
# 0 DISPLAY 0 0 0 1E18 240 1 0 0.3
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

GRAPH B&W LOCATE 1 1

ECHO     Circles  or  rectangles  right of center when lathed make ring type shapes.
ECHO In the last screen you saw a "L" shaped rectangular source  element.  When  the
ECHO lathed element made from the source element in the last screen appears you will
ECHO see  that  the  result looks like a shoulder washer with the raised part of the
ECHO "L" making the shoulder.  Use the Lathe command when  you  need  stepped  edges
ECHO like this.

# 1 LATHE 18 18
# 0 DISPLAY -35 0 0 -4 310 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

; Start Thicken two

INIT GRAPH B&W

ECHO     When  you  need  ring  shapes  that  do not have rounded edges or steps the
ECHO Thicken command can be used to produce a different type of appearance.  For the
ECHO Thicken command you would draw the full face of the part, as shown here.

POLYGON 72 72 2 1 1 0 0
POLYGON 40 40 1 1 1 0 0
POLYGON 12 12 0.125 1 1 0 0
# 3 OFFSET ZERO 0 -1.5 0
# 3 COPY
# 4 OFFSET CURRENT 0 0 0
# 3 COPY
# 5 OFFSET CURRENT 0 0 0
# 5 CENTER 0 0 0
# 5 ROTATE CURRENT 0 0 120
# 4 CENTER 0 0 0
# 4 ROTATE CURRENT 0 0 -120
APPEND 0 -2 0 0 -1.625 0 1 1 0 0
APPEND 0 -1.375 0 0 -1 0 1 1 0 0
APPEND 0 1 0 0 2 0 1 1 0 0
APPEND -1 0 0 -2 0 0 1 1 0 0
APPEND 1 0 0 2 0 0 1 1 0 0
# 0 DISPLAY 0 0 0 1E18 240 1 0 0.3
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

GRAPH B&W LOCATE 1 1

ECHO     Then after thickening the small circles will  become  the  mounting  holes.

# 0 THICKEN Z -0.375
# 0 DISPLAY 33 0 30 -7 330 1 0 -0.3
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT


INIT GRAPH B&W

ECHO     DANCAD3D lets you make special fonts for the lettering commands.  These are
ECHO some of the characters that come with the user  outfit.  Special  International
ECHO fonts  are supplied with the user outfit.  Also supplied are fonts for drafting
ECHO that use fewer line segments than the default font on the ShareWare disks.

LOAD 2D DEMO3A.2D

# 0 DISPLAY 0 0 0 1E18 260 1   0    0

# 0 DISPLAY 0 0 0 1E18 260 1   0.01  0.01
# 0 DISPLAY 0 0 0 1E18 260 1   0.01 -0.01
# 0 DISPLAY 0 0 0 1E18 260 1  -0.01  0.01
# 0 DISPLAY 0 0 0 1E18 260 1  -0.01 -0.01

# 0 DISPLAY 0 0 0 1E18 260 1   0.0065  0.0065
# 0 DISPLAY 0 0 0 1E18 260 1   0.0065 -0.0065
# 0 DISPLAY 0 0 0 1E18 260 1  -0.0065  0.0065
# 0 DISPLAY 0 0 0 1E18 260 1  -0.0065 -0.0065


# 0 DISPLAY 0 0 0 1E18 260 1   0.003  0.003
# 0 DISPLAY 0 0 0 1E18 260 1   0.003 -0.003
# 0 DISPLAY 0 0 0 1E18 260 1  -0.003  0.003
# 0 DISPLAY 0 0 0 1E18 260 1  -0.003 -0.003


LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

INIT GRAPH B&W LOCATE 1 1

ECHO     DANCAD3D's ALIAS index files let you quickly load symbols like  these  into
ECHO your drawings while drawing.  These are some examples from the symbols supplied
ECHO with  the  user outfit.  Among the symbols supplied with the outfit are symbols
ECHO for  Electronic  schematics,  PCB  layout,  Mathematical  symbols,  Flow  chart
ECHO symbols,  and assorted symbols for Astronomy,  Map making, and Music engraving.
ECHO You can create any number of special symbols for your own use.

LOAD 2D DEMO3B.2D

# 0 DISPLAY 0 0 0 1E18 1 1   0    0

# 0 DISPLAY 0 0 0 1E18 1 1   1.75  1.75
# 0 DISPLAY 0 0 0 1E18 1 1   1.75 -1.75
# 0 DISPLAY 0 0 0 1E18 1 1  -1.75  1.75
# 0 DISPLAY 0 0 0 1E18 1 1  -1.75 -1.75

# 0 DISPLAY 0 0 0 1E18 1 1   1  1
# 0 DISPLAY 0 0 0 1E18 1 1   1 -1
# 0 DISPLAY 0 0 0 1E18 1 1  -1  1
# 0 DISPLAY 0 0 0 1E18 1 1  -1 -1

LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT


INIT GRAPH B&W WORLD 240

ECHO     DANCAD3D offers several line types:  Solid, Dotted, Dashed, and Combination
ECHO of  dots  and dashes.  You can adjust the spacing of the dots and dashed to get
ECHO dozens of variations of each style.

BEGIN
APPEND -2.25 -1.5 0 2.25 -1.5 0 1 1 0 0
APPEND 2.25 -0.5 0 -2.25 -0.5 0 1 1 0 161
APPEND -2.25 0.5 0 2.25 0.5 0 1 1 0 242
APPEND 2.25 1.5 0 -2.25 1.5 0 1 1 0 227

# 0 DISPLAY 0 0 0 -1.000E+18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT


INIT GRAPH B&W WORLD 240

ECHO     DANCAD3D also lets you vary the line width from vary narrow to  very  wide.
ECHO When  the line segments are wide you can also chose from several styles for the
ECHO end shape of the line segments, such as round or square.

BEGIN
APPEND -2.25 -1.5 0 2.25 -1.5 0 1 1 0 0
APPEND 2.25 -0.5 0 -2.25 -0.5 0 1 20 0 0
APPEND -2.25 0.5 0 2.25 0.5 0 1 50 0 0
APPEND 2.25 1.5 0 -2.25 1.5 0 1 255 16 0

# 0 DISPLAY 0 0 0 -1.000E+18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT

INIT TEXT

ECHO     This demo has just scratched the  surface  of  all  the  types  of  drawing
ECHO elements  you  can  make with DANCAD3D.  Please read the file DANCAD3D.DOC that
ECHO you should have on your program disks.  Additional examples and explanation  of
ECHO how to use DANCAD3D are included in the registered user outfit.
LOCATE 1 6
ECHO     I  hope  you enjoy learning how to make practical use of DANCAD3D.  If your
ECHO hardware meets the requirements outlined  in  the  file  DANCAD3D.DOC  DANCAD3D
ECHO should  work  for  you.  If  you  are having any problems feel free to write to
ECHO report the problem you  are  having.  When  you  write  please  enclose  return
ECHO postage   for  the  reply  as  US  first  class  stamps  or  some  first  class
ECHO international postal vouchers.

LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT


; END MACRO FILE DEMO3.MAC